﻿Public Class Frmlistaclientesnaturales
    Dim listapersonaNatural As New LinkedList(Of PersonaNatural)

    Public Property ListaPersonaNaturaltotal As LinkedList(Of PersonaNatural)
        Get
            
            Return listapersonaNatural
        End Get
        Set(ByVal value As LinkedList(Of PersonaNatural))
            listapersonaNatural = value

        End Set
    End Property
    Private Sub Frmlistaclientesnaturales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       


        For Each myclientes As PersonaNatural In listapersonaNatural
            Dim item As ListViewItem
            item = Me.Lstlistaclientesnaturales.Items.Add(New ListViewItem(myclientes.Nombre, 0))
            item.SubItems.Add(myclientes.Codigo)
            item.SubItems.Add(myclientes.Telefono)
            item.SubItems.Add(myclientes.Direccion)
            item.SubItems.Add(myclientes.Dni)
            item.SubItems.Add(myclientes.NombreContactoPersona)

        Next

    End Sub
End Class